home *** CD-ROM | disk | FTP | other *** search
/ Focus for Success / Focus for Success.iso / pc / game2.dxr / 00082_Field_button 1(ID=29).txt < prev    next >
Text File  |  1995-02-28  |  1KB  |  54 lines
  1. on mouseUp
  2.   --CALCULATION WHIZ
  3.   --COPYRIGHT 1993 BY ROBERT M. NIDEFFER
  4.   
  5.   PUT THE TICKS INTO LINE 2 OF CARD FLD TIME
  6.   PUT THE SHORT NAME OF ME INTO X3
  7.   IF X3=CARD FLD ANSWER1 THEN
  8.     PUT LINE 1 OF CARD FLD TIME INTO A
  9.     PUT LINE 2 OF CARD FLD TIME INTO B
  10.     PUT(B-A) INTO T1
  11.     PUT LINE 1 OF CARD FLD COUNT INTO X
  12.     PUT CARD FLD SECONDS INTO Y
  13.     IF Y-X<2 THEN
  14.       SHOW CARD FLD "GAME OVER"
  15.       WAIT 2 SECONDS
  16.       HIDE CARD FLD "GAME OVER"
  17.       CLICK AT LOC OF CARD BUTTON SCORE
  18.       EXIT MOUSEUP
  19.     END IF
  20.     
  21.     PUT 60*(Y-X) INTO T2
  22.     IF T1<T2 THEN
  23.       PUT THE NUMBER OF LINES IN CARD FLD SUBJECT1 INTO CT
  24.       ADD 1 TO LINE 1 OF CARD FLD COUNT2
  25.       PUT T1 INTO LINE CT+1 OF CARD FLD SUBJECT1
  26.       PUT 0 INTO LINE 2 OF CARD FLD COUNT3
  27.       --SHOW CARD FLD "CORRECT"
  28.       --PLAY BOING
  29.       --WAIT 30
  30.       --HIDE CARD FLD CORRECT
  31.       CLICK AT LOC OF CARD BUTTON "PLAY BONUS"
  32.     END IF
  33.     IF T1>T2 THEN
  34.       SHOW CARD FLD SORRY
  35.       WAIT 3 SECONDS
  36.       HIDE CARD FLD SORRY
  37.     END IF
  38.   END IF
  39.   
  40.   IF X3<>CARD FLD ANSWER1 THEN
  41.     --SHOW CARD FLD "WRONG"
  42.     REPEAT WITH I=1 TO 5
  43.       HIDE CARD BUTTON I
  44.     END REPEAT
  45.     --HIDE CARD FLD "WRONG"
  46.     ADD 1 TO LINE 1 OF CARD FLD COUNT3
  47.     CLICK AT LOC OF CARD BUTTON "PLAY LATERDUDE"
  48.   END IF
  49.   
  50.   
  51.   CLICK AT LOC OF CARD BUTTON START
  52.   
  53.   
  54. end mouseUp